home *** CD-ROM | disk | FTP | other *** search
Text File | 2000-12-05 | 52.9 KB | 3,174 lines | [TEXT/GeDt] |
- GFVN 6
- @@GeDF@@_Unknown_ Printing
-
- @@GeDF@@Individual Events
- ADOP Adoption
- CHRA Adult Christening
- BAPM Baptism
- BARM Bar Mitzvah
- BASM Bas Mitzvah
- BIRT Birth
- BLES Blessing
- BURI Burial
- CAST Caste Name
- CENS Census
- CHR Christening
- EVEN Circumcision
- CREM Cremation
- CONF Confirmation
- NMR Count of Marriages
- DEAT Death
- EVEN Deed
- EDUC Education
- EMIG Emigration
- FCOM First Communion
- EVEN Generic Event
- GRAD Graduation
- EVEN Illness
- IMMI Immigration
- BAPL LDS Baptism
- SLGC LDS Child Sealing
- CONL LDS Confirmation
- ENDL LDS Endowment
- EVEN Military Service
- EVEN Miscarriage
- EVEN Mission
- NAME Name
- IDNO National ID Number
- NATI National or Tribal Origin
- NATU Naturalization
- TITL Nobility Type Title
- NCHI Number of Children
- OCCU Occupation
- ORDN Ordination
- DSCR Physical Description
- PROP Possessions
- PROB Probate
- RELI Religious Affiliation
- RETI Retirement
- RESI Residence
- SSN Social Security Number
- WILL Will
- @@GeDF@@Family Events
- ANUL Annulment
- CENS Census
- DIV Divorce
- DIVF Divorce Filed
- EVEN Generic Event
- ENGA Engagement
- SLGS LDS Spouse Sealing
- MARR Marriage
- MARB Marriage Bann
- MARC Marriage Contract
- MARL Marriage License
- MARS Marriage Settlement
- NCHI Number of Children
- EVEN Separation
- @@GeDF@@GEDCOM Tag Names
- ABBR Short Title
- ADOP Adoption
- ADR1 Address Line 1
- ADR2 Address Line 2
- AGE Age
- AGNC Agency
- ANCE Gens. of Ancestors
- ANUL Annulment
- AFN Ancest. File No.
- BAPL LDS Baptism
- BAPM Baptism
- BARM Bar Mitzvah
- BASM Bas Mitzvah
- BIRT Birth
- BLES Blessing
- BURI Burial
- CALN Call Number
- CAST Caste Name
- CAUS Cause
- CENS Census
- CHAR Character Set
- CHR Christening
- CHRA Adult Chr
- CITY City
- CONF Confirmation
- CONC Concatenated
- CONL LDS Confirmation
- CONT Continued
- COPR Copyright
- CORP Corporation
- CREM Cremation
- CTRY Country
- DATE Date
- DEAT Death
- DESC Gens. of Descendents
- DEST Dest File
- DIV Divorce
- DIVF Divorce Filed
- DSCR Physical Descrip.
- EMIG Emigration
- ENGA Engaged
- ENDL LDS Endowment
- EVEN Event
- EDUC Education
- FAMF Family File
- FCOM 1st Communion
- FILE File
- FORM Form
- GIVN Given
- GRAD Graduation
- IDNO Nat. ID No.
- IMMI Immigration
- LANG Language
- MARB Marriage Banns
- MARC Marr. Contract
- MARL Marr. License
- MARR Marriage
- MARS Settlement
- MEDI Media Type
- NATI Nationality
- NATU Naturalized
- NCHI No. of Children
- NICK Nickname
- NMR No. of Marriages
- NPFX Prefix
- NSFX Suffix
- OCCU Occupation
- ORDI Ord. Process Flag
- ORDN Ordination
- PAGE Page
- PEDI Pedigree
- PHON Phone No.
- PLAC Place
- POST Postal Code
- PROB Probate
- PROP Possessions
- QUAY Quality
- REFN User Ref. No.
- RELA Relationship
- RELI Religion
- RESI Residence
- RESN Restriction
- RETI Retirement
- RFN Record File No.
- RIN Record ID
- ROLE Role in Event
- SLGC LDS Child Sealing
- SLGS LDS Spouse Sealing
- SPFX Sur Prefix
- SSN Soc. Sec. No.
- STAE State
- STAT Status
- SURN Surname
- TEMP Temple Code
- TEXT Text
- TITL Title
- TIME Time
- TYPE Type
- VERS Version
- WILL Will
- _MREL Mother's Rel.
- _FREL Father's Rel.
- @@GeDF@@@WindowRects
- 1 1 0 0
- 38 48 797 690
- 71 72 595 613
- 127 203 647 638
- 96 161 563 517
- 42 141 461 510
- 81 198 529 322
- 96 127 485 354
- 67 206 476 437
- 51 96 575 637
- 57 159 462 196
- 51 106 566 469
- 12 48 633 719
- 28 44 908 683
- 85 47 539 400
- 210 163 702 539
- 33 107 512 452
- @@GeDF@@@Tree Preferences
- 0 @PREF@ @TRE
- 1 @STY Name
- 2 @FNT Helvetica
- 2 @SZE 9
- 2 @FCE Plain
- 2 @CLR Color
- 3 @RGB 0 0 0
- 1 @STY Title
- 2 @FNT Helvetica
- 2 @SZE 10
- 2 @FCE Bold
- 2 @CLR Color
- 3 @RGB 0 0 0
- 1 @CLR Males
- 2 @RGB 3276 48495 63568
- 1 @CLR Females
- 2 @RGB 63568 41942 59636
- 1 @CLR Cross Reference
- 2 @RGB 49972 4968 8539
- 1 @CLR Box Frame
- 2 @RGB 18349 18349 18349
- 1 @CLR Box Shadow
- 2 @RGB 32112 32112 32112
- 1 @CLR Lines
- 2 @RGB 0 0 0
- 1 @CKB Use Color
- 2 @CVL Y
- 1 @TXT Box Style
- 2 @TVL Simple Box
- 1 @TXT Name Format
- 2 @TVL Full Names
- 1 @TXT Life Span
- 2 @TVL On Second Line
- 1 @TXT Ancestor Format
- 2 @TVL Horizontal, Center Aligned
- 2 @CKB Reverse (R->L or B->T)
- 3 @CVL N
- 1 @TXT Descendant Format
- 2 @TVL Vertical, Center Aligned
- 2 @CKB Reverse (R->L or B->T)
- 3 @CVL N
- 1 @NUM Horiz Spacing
- 2 @VAL 8
- 1 @NUM Vert Spacing
- 2 @VAL 12
- 1 @NUM Horiz Padding
- 2 @VAL 2
- 1 @NUM Vert Padding
- 2 @VAL 2
- 1 @NUM Top Margin
- 2 @VAL 5
- 1 @NUM Left Margin
- 2 @VAL 5
- 1 @NUM Max Appearances
- 2 @VAL 1
- 1 @NUM Line Thickness
- 2 @VAL 1
- 1 @VRS 6
- @@GeDF@@@Index Preferences
- 0 @PREF@ @IDX
- 1 @STY Index
- 2 @FNT Geneva
- 2 @SZE 10
- 2 @FCE Plain
- 2 @CLR Color
- 3 @RGB 0 0 0
- 1 @CLR Odd Rows
- 2 @RGB 58638 58638 58638
- 1 @CLR Even Rows
- 2 @RGB 65535 65535 65535
- 1 @HGL
- 2 @CLR Grid Color
- 3 @RGB 63488 63488 63488
- 2 @CKB Use Grid Lines
- 3 @CVL Y
- 1 @NUM Row Padding
- 2 @VAL 2
- 1 @CKB Require Double Clicks
- 2 @CVL N
- 1 @IPU Clicking Opens
- 2 @IPV Y
- 1 @IPU Shift-Clicking Opens
- 2 @IPV N
- 1 @ICL Y
- 2 @ILB NAME
- 2 @IJT Left
- 2 @ITY 0
- 1 @ICL Y
- 2 @ILB BIRTH
- 2 @IJT Center
- 2 @ITY 1
- 1 @ICL Y
- 2 @ILB DEATH
- 2 @IJT Center
- 2 @ITY 2
- 1 @ICL Y
- 2 @ILB FATHER
- 2 @IEX FAMC.HUSB.NAME
- 2 @IJT Left
- 1 @ICL Y
- 2 @ILB MOTHER
- 2 @IEX FAMC.WIFE.NAME
- 2 @IJT Left
- 1 @VRS 6
- @@GeDF@@_Unknown_ Editing
-
- @@GeDF@@@Editing Preferences
- 0 @PREF@ @EDT
- 1 @STY Editing
- 2 @FNT Verdana
- 2 @SZE 10
- 2 @FCE Plain
- 2 @CLR Color
- 3 @RGB 0 0 0
- 1 @STY Labels
- 2 @FNT Verdana
- 2 @SZE 10
- 2 @FCE Plain
- 2 @CLR Color
- 3 @RGB 0 0 0
- 1 @STY Static
- 2 @FNT Verdana
- 2 @SZE 10
- 2 @FCE Plain
- 2 @CLR Color
- 3 @RGB 0 0 0
- 1 @STY Buttons
- 2 @FNT Verdana
- 2 @SZE 10
- 2 @FCE Plain
- 2 @CLR Color
- 3 @RGB 0 0 0
- 1 @CLR Revision
- 2 @RGB 65000 0 0
- 1 @CLR Background
- 2 @RGB 51773 65535 52231
- 1 @CLR Field Top
- 2 @RGB 0 0 0
- 1 @CLR Field Bottom
- 2 @RGB 0 0 0
- 1 @CLR Button
- 2 @RGB 51773 65535 52231
- 1 @CLR Button Top
- 2 @RGB 60947 60947 60947
- 1 @CLR Button Bottom
- 2 @RGB 32767 32767 32767
- 1 @NUM Line Separation
- 2 @VAL 0
- 1 @NUM Left Margin
- 2 @VAL 4
- 1 @NUM Min Edit Lines
- 2 @VAL 5
- 1 @NUM Max Edit Lines
- 2 @VAL 10
- 1 @NUM Button Corners
- 2 @VAL 8
- 1 @VRS 6
- @@GeDF@@Custom Long Tags
- _FREL
- _MREL
- _SCHEMA
- _MEND
- _MSTAT
- @@GeDF@@GEDCOM Tag Phrases
- NOTE Notes on
- @@GeDF@@@ColumnWidths
- 175
- 70
- 70
- 140
- 140
- @@GeDF@@INDI Record Editing
- RightMargin 800
- LeftSkip 8
-
- pass ficn
-
- hskip 8
- icon Families View:Families
- help View families
- hskip -1
- icon Siblings View:Siblings
- help View siblings
- hskip -1
- icon Relatives View:Relatives...
- help Search for relatives
-
- hskip 8
- icon Ancestors Tree:Ancestor Tree
- help Compile ancestor family tree
- hskip -1
- icon Descendants Tree:Descendant Tree
- help Compile descendant family tree
-
- pass gmen
-
- newLine 1
- Style label s=12 w=300 f=bold
- Text "Pedigree Chart for "
- Text *NAME
-
- endiconbar 1
-
- ! fspc = family group size for lines
- ! cgap = gap between columns
- ! iht = indi cell height
- ! idrp = indi cell space at top
- ! fskp = skip to family button
- Set fspc 74
- Set cgap 15
- Set iht 48
- set idrp 1
- Set fskp 7
- Set fbut 18
-
- !------------------ Column 1 -----------------
-
- Set ptop #vpos
- Set fsiz 170
-
- ! This Person
- NewLine 2
- Style label w=#fsiz f=bold
- Text "Individual"
-
- NewLine
- Set dtop #vpos
- NewLine 2
- HSkip 2
- Style label w=#fsiz b=button
- Height #iht
- CellBg 0 0 0
- help Click to edit this individual
-
- NewLine -27
- HSkip #fsiz
- Style static w=8 h=2
- Border 3dframe tr
-
- MoveTo #dtop
- Style button w=#fsiz b=button
- Height #iht
- CellBg 0xAA 0xD4 0xFF
- help Click to edit this individual
- GroupLink eIND
- ShowAll NAME
- ShowAll BIRT
- ShowAll DEAT
- ShowAll BAPM
- ShowAll CHR
- ShowAll BLES
- ShowAll BARM
- ShowAll BASM
- ShowAll ADOP
- ShowAll CHRA
- ShowAll CONF
- ShowAll FCOM
- ShowAll ORDN
- ShowAll GRAD
- ShowAll EMIG
- ShowAll IMMI
- ShowAll NATU
- ShowAll CENS
- ShowAll RETI
- ShowAll PROB
- ShowAll BURI
- ShowAll WILL
- ShowAll CREM
- ShowAll EVEN
- ShowAll BAPL
- ShowAll CONL
- ShowAll ENDL
- ShowAll SLGC
- ShowAll OCCU
- ShowAll EDUC
- ShowAll DSCR
- ShowAll RELI
- ShowAll SSN
- ShowAll IDNO
- ShowAll PROP
- ShowAll CAST
- ShowAll NCHI
- ShowAll NMR
- ShowAll TITL
- ShowAll NATI
- ShowAll NOTE
- ShowAll SOUR
- ShowAll CHAN
- EndGroup
-
- Sub fsiz 10
- MoveTo #dtop
- NewLine #idrp
- HSkip 5
- Style static w=#fsiz
- Text *this.NAME
-
- NewLine -2
- HSkip 5
- Style static w=#fsiz
- Text *this.BIRT.DATE
-
- NewLine -2
- HSkip 5
- Style static w=#fsiz
- Text *this.BIRT.PLAC
-
- Add fsiz 10
- NewLine #fskp
-
- ! Family Button
- Pass _FLK *FAMS
-
- get *SEX
- if M
- get *FAMS.WIFE
- SetStr inam "Wife"
- else
- get *FAMS.HUSB
- SetStr inam "Husband"
- endif
- Set lnht 0
- Pass _IND *it
-
- NewLine 20
- Style label w=#fsiz f=bold
- Text "Children"
-
- Set cnum 1
- PassAll clst *FAMS.CHIL
-
- !------------------ Column 2 -----------------
-
- MoveTo #ptop
- HSkip #fsiz
- HSkip #cgap
- LeftSkip #hpos
-
- ! Parents
- Pass _LNS
-
- SetStr inam "Father"
- Set lnht 2
- Pass _IND *FAMC.HUSB
-
- ! Family Button
- Pass _FLK *FAMC
-
- SetStr inam "Mother"
- Set lnht 250
- Pass _IND *FAMC.WIFE
-
- NewLine 20
- Style label w=#fsiz f=bold
- Text "Other Spouses"
-
- Set cnum 0
- PassAll sbut *FAMS
-
- !------------------ Column 3 -----------------
-
- MoveTo #ptop
- HSkip #fsiz
- HSkip #cgap
- LeftSkip #hpos
-
- ! P
- Pass _LNS
-
- SetStr inam "Grandfather"
- Set lnht 2
- Pass _IND *FAMC.HUSB.FAMC.HUSB
-
- ! Family Button
- Pass _FLK *FAMC.HUSB.FAMC
-
- SetStr inam "Grandmother"
- Set lnht 100
- Pass _IND *FAMC.HUSB.FAMC.WIFE
-
- ! M
- NewLine 154
- Pass _LNS
-
- SetStr inam "Grandfather"
- Set lnht 2
- Pass _IND *FAMC.WIFE.FAMC.HUSB
-
- ! Family Button
- Pass _FLK *FAMC.WIFE.FAMC
-
- SetStr inam "Grandmother"
- Set lnht 100
- Pass _IND *FAMC.WIFE.FAMC.WIFE
-
- !------------------ Column 4 -----------------
-
- Set lnht -1
- MoveTo #ptop
- HSkip #fsiz
- HSkip #cgap
- LeftSkip #hpos
-
- !PP
- Pass _LNS
-
- SetStr inam "Gr. Grandfather"
- Pass _IND *FAMC.HUSB.FAMC.HUSB.FAMC.HUSB
-
- ! Family Button
- Pass _FLK *FAMC.HUSB.FAMC.HUSB.FAMC
-
- SetStr inam "Gr. Grandmother"
- Pass _IND *FAMC.HUSB.FAMC.HUSB.FAMC.WIFE
-
- !PM
- Pass _LNS
-
- SetStr inam "Gr. Grandfather"
- Pass _IND *FAMC.HUSB.FAMC.WIFE.FAMC.HUSB
-
- ! Family Button
- Pass _FLK *FAMC.HUSB.FAMC.WIFE.FAMC
-
- SetStr inam "Gr. Grandmother"
- Pass _IND *FAMC.HUSB.FAMC.WIFE.FAMC.WIFE
-
- !MP
- Pass _LNS
-
- SetStr inam "Gr. Grandfather"
- Pass _IND *FAMC.WIFE.FAMC.HUSB.FAMC.HUSB
-
- ! Family Button
- Pass _FLK *FAMC.WIFE.FAMC.HUSB.FAMC
-
- SetStr inam "Gr. Grandmother"
- Pass _IND *FAMC.WIFE.FAMC.HUSB.FAMC.WIFE
-
- !MM
- Pass _LNS
-
- SetStr inam "Gr. Grandfather"
- Pass _IND *FAMC.WIFE.FAMC.WIFE.FAMC.HUSB
-
- ! Family Button
- Pass _FLK *FAMC.WIFE.FAMC.WIFE.FAMC
-
- SetStr inam "Gr. Grandmother"
- Pass _IND *FAMC.WIFE.FAMC.WIFE.FAMC.WIFE
-
- LeftSkip #dlmg
- NewLine
-
- HideExcess
-
-
- @@GeDF@@NAME Editing
- newline
- get *msg
- if INDI
- style label f=bold tw=1
- text Name
-
- ! edit name
- hskip 5
- style editvalue w=-1 b=field
- HideExcess
- else
- ! start new line and label
- style label tw=1 j=right
- text Name:
-
- ! edit name
- hskip 5
- style editvalue w=-1 b=field
- endif
-
- @@GeDF@@DATE Editing
- get *msg
- if FG
- Style editvalue tw=1
- Border frame lrb
- Content date
- elseif Head
- Style label j=right tw=1
- Text Date:
-
- HSkip 5
- Style editvalue b=field w=-1
- Content date
- elseif OK
- Style label tw=1 j=right
- text Date:
-
- hskip 5
- Style editvalue b=field
- Content date
- Width -1
- endif
- @@GeDF@@DEAT Editing
- use iEVT Editing
- @@GeDF@@NOTE Editing
- get *msg
- if list
- if tagexists
- get #lmgn
- if #dlmg
- NewLine
- Style label tw=1 f=bold
- Text Notes
- HSkip 5
- elseif 5
- NewLine
- Style label tw=2 j=right
- Text Notes:
- HSkip 5
- endif
-
- Style button w=-1 f=underline
- Blue
- get *valu
- if validlink
- Link *valu
- SetStr tfst *valu.next
- ifEmpty *tfst
- SetStr tfst <Notes with first line empty>
- else
- Count *valu.next
- ifNot 1
- CatStr tfst ...
- endif
- endif
- else
- SetStr tfst *valu
- ifEmpty *tfst
- SetStr tfst <Notes with first line empty>
- else
- Count *next
- ifNot 0
- CatStr tfst ...
- endif
- endif
- StructLink eNOT
- endif
- Text *tfst
- Help Click to view and edit notes
- else
- Style button b=button j=center h=14
- Text "Notes"
- Width -6
- NewLink
- Help Click to attach notes
- HSkip 5
- endif
- else
- Style button h=14 j=center s=9 b=button
-
- ! has NOTEs
- if tagexists
- Text Notes
- get *valu
- if validlink
- Link *valu
- else
- StructLink NOTE
- endif
- Help Click to view and edit notes
-
- ! does not have NOTEs
- else
- Text Add Notes
- get *rec
- if HEAD
- StructLink NOTE
- else
- NewLink
- endif
- Help Click to attach notes
- endif
- Width -6
- HSkip 5
- endif
- @@GeDF@@ADDR Editing
- ! address label
- newline
- style label j=right tw=1
- text Address:
-
- hskip 5
- style editcont b=field w=-1
- @@GeDF@@SUBM Record Editing
- ifNot nowprinting
- Pass ficn
- Pass gmen
- EndIconBar 3
- Bg 0xE8 0xE8 0xE8
- else
- Bg 0xFF 0xFF 0xFF
- endif
-
- toolbg 0xD8 0xD8 0xD8
- lineskip -1
-
- if nowprinting
- bg 0xFF 0xFF 0xFF
- endif
-
- newline 3
- settab 80
- settab 120
- show NAME
-
- endtoolbar 4
- newline 2
-
- show ADDR
- show PHON
- show LANG
-
- HideExcess
- @@GeDF@@SUBM Editing
- get *rec
- if SUBN
- get HEAD
- endif
- if HEAD
- style button j=center b=button s=9 h=14
- get *valu
- if validlink
- help "View "
- else
- text "Link "
- help "Link to a "
- endif
- text Submitter
- newlink
- help submitter record
- width -6
- hskip 5
- endif
- @@GeDF@@NOTE Record Editing
- ToolBg 0xAA 0xD4 0xFF
- pass Nlab
- style edittext
-
- showall CHAN
- HideExcess
- @@GeDF@@REPO Record Editing
- ifNot nowprinting
- Pass ficn
- Pass gmen
- EndIconBar 3
- Bg 0xE8 0xE8 0xE8
- else
- Bg 0xFF 0xFF 0xFF
- endif
-
- toolbg 0xD8 0xD8 0xD8
- lineskip -1
-
- newline 3
- show NAME
-
- endtoolbar 4
- newline 3
-
- show ADDR
- leftskip 82
- newline 3
- showall NOTE
-
- ifnot nowprinting
- show NOTE
- endif
-
- HideExcess
- @@GeDF@@AUTH Editing
- newline
- style label j=right tw=1
- text Author:
-
- hskip 5
- if nowprinting
- MaxLines 15
- endif
- style editcont b=field w=-1
- @@GeDF@@TITL Editing
- get *rec
- if INDI
- newline
- Style label f=bold tw=2
- Text *name
-
- HSkip 5
- Style editvalue b=field w=-1
-
- HideExcess
- else
- NewLine
- Style label j=right tw=1
- Text Title:
-
- HSkip 5
- Style editcont b=field w=-1
- endif
- @@GeDF@@SOUR Record Editing
- ifNot nowprinting
- Pass ficn
- Pass gmen
- EndIconBar 3
- Bg 0xE8 0xE8 0xE8
- else
- Bg 0xFF 0xFF 0xFF
- endif
-
- ToolBg 0xD8 0xD8 0xD8
- LineSkip -1
-
- SetTab 90
- MaxLines 2
-
- NewLine 3
- Show TITL Source
-
- EndToolbar 4
- NewLine 3
-
- Show AUTH
- Show ABBR
-
- MinLines 3
- MaxLines 5
- Show PUBL
-
- LineSkip 2
- Show REPO
-
- Show TEXT
-
- NewLine
- ifHasTags NOTE
- Style label j=right tw=1
- Text Notes:
- HSkip 5
- LeftSkip #hpos
- ShowAll NOTE list
- NewLine
- LeftSkip #dlmg
- endif
-
- ifNot nowprinting
- Style label j=right tw=1
- Text Attach:
-
- HSkip 5
- Show NOTE list
- endif
-
- HideExcess
- @@GeDF@@PUBL Editing
- NewLine
- Style label j=right tw=1
- Text Publisher:
-
- HSkip 5
- if nowprinting
- MaxLines 15
- endif
- Style editcont b=field w=-1
- @@GeDF@@REPO Editing
- ! Note button
- NewLine
- Style label tw=1 j=right
- Text Repository:
- HSkip 5
-
- get *valu
- if tagexists
- Style button w=-1 f=underline
- get *valu.NAME
- ifEmpty
- get "(unnamed repository):
- endif
- Text *it
- Blue
- Link *valu
- Width -6
- help View repository record
- HSkip 5
-
- NewLine
- Tab 1
- else
- Style button j=center b=button s=9 h=14
- Text "Add Link"
- NewLink
- Width -6
- endif
- HSkip 5
- ShowAll NOTE
-
- ifnot nowprinting
- Show NOTE
- endif
-
- HideExcess
- @@GeDF@@PHON Editing
- use ABBR Editing
- @@GeDF@@SOUR Editing
- get *rec
- if HEAD
- style label j=right tw=1
- text System ID:
-
- hskip 5
- style editvalue b=field w=-1
-
- show NAME
-
- endtoolbar 4
- newline 3
-
- show VERS
- show CORP
- show DATA
- else
- if tagexists
- get #lmgn
- if #dlmg
- NewLine
- Style label tw=1 f=bold
- Text Sources
- HSkip 5
- elseif 5
- NewLine
- Style label tw=2 j=right
- Text Sources:
- HSkip 5
- endif
- get *valu
- if validlink
- Style button b=button j=center h=14 s=9
- get *it.ABBR
- ifempty
- get *valu.TITL
- ifempty
- get <Unnamed Source>
- endif
- endif
- text "Details"
- width -12
- structlink SOUa
- help Click for details of this citation
-
- hskip 5
- style button w=-1 f=underline
- text *it
- link *valu
- help View source record
- else
- Style button f=underline w=-1
- text "<Embedded Source>"
- structlink SOUb
- help Click for source information
- endif
- blue
- else
- style button b=button s=9 h=14 j=center
- Text Source
- addlink
- width -6
- help Click to attach a new source
- hskip 5
- endif
- endif
- @@GeDF@@ABBR Editing
- ! label on current line
- newline
- style label j=right tw=1
- text *name
- text :
-
- ! edit the date
- hskip 5
- style editvalue b=field w=-1
- @@GeDF@@HEAD Record Editing
- bg 0xE8 0xE8 0xE8
- toolbg 0xD8 0xD8 0xD8
- lineskip -1
-
- if nowprinting
- bg 0xFF 0xFF 0xFF
- endif
-
- settab 100
- settab 130
- set tab1 100
- set tab2 130
-
- newline 3
- show SOUR Header
-
- newline 5
- tab 1
- hskip 5
- show SUBM
- show SUBN
- newline 5
-
- show DEST
- show DATE Head
- show FILE
- show COPR
- show GEDC
- show CHAR
- show LANG
- show PLAC Header
-
- newline 5
- add tab1 5
- leftskip #tab1
- showall NOTE
- show NOTE
-
- HideExcess
- @@GeDF@@CORP Editing
- newline
- style label j=right tw=1
- text Corporation:
-
- hskip 5
- style editvalue b=field w=-1
-
- newline
- show ADDR
- @@GeDF@@COPR Editing
- use ABBR Editing
- @@GeDF@@SUBN Editing
- style button j=center b=button s=9 h=14
- text Submission
- link *valu
- width -6
- help View file submission record
- hskip 5
- @@GeDF@@GEDC Editing
- newline
- show VERS GEDCOM
- cleartabs
- settab 120
- show FORM GEDCOM Form:
- @@GeDF@@DEST Editing
- use ABBR Editing
- @@GeDF@@FILE Editing
- use ABBR Editing
- @@GeDF@@OBJE Record Editing
- ifNot nowprinting
- Bg 0xE8 0xE8 0xE8
- else
- Bg 0xFF 0xFF 0xFF
- endif
- lineskip -1
-
- newline 3
- style label j=center w=-1
- text This Pedigree Format does display
- text " encoded multimedia objects"
- border frame ltrb
-
- HideExcess
- @@GeDF@@SUBN Record Editing
- ifNot nowprinting
- Bg 0xE8 0xE8 0xE8
- else
- Bg 0xFF 0xFF 0xFF
- endif
-
- lineskip -1
-
- if nowprinting
- bg 0xFF 0xFF 0xFF
- endif
-
- newline 3
- style label j=right tw=2
- text Submitter:
-
- hskip 5
- show SUBM OK
- newline 3
-
- newline
- show FAMF
- show TEMP
- show ANCE
- show DESC
- show ORDI
-
- HideExcess
- @@GeDF@@CHAR Editing
- ! label on current line
- newline
- style label j=right tw=1
- text *name
- text :
-
- ! edit the date
- hskip 5
- style button w=-1 b=field
- CellBg 0xE0 0xE0 0xE0
- text *valu
- MenuLink File:Character Set...
- help Click to change character set for file
-
- cleartabs
- settab #tab2
- show VERS Char. Set
- @@GeDF@@LANG Editing
- use ABBR Editing
- @@GeDF@@VERS Editing
- ! label on current line
- style label j=right tw=1
- get *msg
- if
- else
- text *it
- text " "
- endif
- text Vers.:
-
- ! edit the version
- hskip 5
- get *msg
- if "Char. Set"
- style button w=-1 b=field s=10
- CellBg 0xE0 0xE0 0xE0
- black
- text *valu
- MenuLink File:Character Set...
- help Click to change character set for file
- else
- style editvalue b=field w=-1
- endif
- @@GeDF@@PLAC Editing
- get *msg
- if OK
- NewLine
- Style static tw=2 j=right
- Text Place:
-
- HSkip 5
- Style editvalue b=field
- Width -1
- elseif FG
- Style label j=right w=40
- Text Place:
- Border frame b
-
- HSkip 0
- Style editvalue tw=2
- Border frame lrb
-
- HSkip 0
- Style label w=1
- Border frame r
- else if Header
- Show FORM Place Format:
- else if Source
- NewLine
- Style static b=field tw=1
- Text Place:
-
- HSkip 0
- Style editvalue w=-1 b=field
- endif
- @@GeDF@@FAM Record Editing
- Bg 0xFF 0xF4 0xD3
- SetTab 65
- SetTab 185
- SetTab 230
- SetTab 503
- RightMargin 507
-
- ifNot nowprinting
- Pass ficn
- Pass gmen
- NewLine
- Style label s=14 f=bold w=-1
- Text Family Group Chart
- else
- Bg 0xFF 0xFF 0xFF
- UseEditingTmpls
- HeaderText \FNVerdana;FS14;C+;BO\
- HeaderText Family Group Chart
- NoFooter
-
- Text \BM*M;TM*m\
- HSkip 0
- endif
-
- ifNot nowprinting
- NewLine 3
- EndIconBar
- NewLine 6
- endif
-
- Show HUSB Husband:
- Show WIFE Wife:
- Pass FRul
- Show MARR
-
- NewLine 1
- ifHasTags CHIL
- Pass FRul
- Set cbut #vpos
- Style label w=1
- Border frame l
-
- HSkip 0
- Style label tw=4
- Text " Children"
- Border frame lr
-
- HSkip 0
- Style label w=1
- Border frame r
-
- ifNot nowprinting
- NewLine
- Set csts #vpos
-
- MoveTo #cbut
- NewLine 1
- HSkip 100
- Style button j=center b=button s=9 h=14
- Text Attach
- Width -6
- MenuLink Attach:Child
-
- HSkip 3
- Style button j=center b=button s=9 h=14
- Text Detach
- Width -6
- MenuLink Detach:Child
-
- MoveTo #csts
- endif
-
- Set cnum 0
- ShowAll CHIL
- NewLine 1
- endif
- Pass FRul
-
- if nowprinting
- HideExit
- endif
-
- LineSkip 2
- NewLine 2
-
- Style label tw=1 f=bold
- Text Events
-
- HSkip 5
- Style button b=button j=center h=14 s=9
- Text View and Edit
- Width -12
- help Click to edit events of this family
- GroupLink eFAM
- ShowAll ENGA
- ShowAll MARB
- ShowAll MARC
- ShowAll MARL
- ShowAll MARS
- ShowAll DIV
- ShowAll DIVF
- ShowAll ANUL
- ShowAll CENS
- ShowAll EVEN
- ShowAll SLGS
- EndGroup
-
- NewLine
- ifHasTags NOTE
- Show NOTE list
- NewLine
- Tab 1
- HSkip 5
- LeftSkip #hpos
- ShowAll NOTE list
- NewLine
- LeftSkip #dlmg
- endif
-
- ifHasTags SOUR
- Show SOUR
- NewLine
- Tab 1
- HSkip 5
- LeftSkip #hpos
- ShowAll SOUR
- NewLine
- LeftSkip #dlmg
- endif
-
- Style label tw=1 f=bold
- Text Attach
-
- HSkip 5
- Show NOTE list
- Show SOUR
-
- showall CHAN
-
- HideExcess
- @@GeDF@@HUSB Editing
- Pass FRul
-
- ! Name field and line
- NewLine
- Style static w=1
- Border frame l
- HSkip 0
-
- Style static tw=1 j=right
- Text *msg
- Border frame ltb
-
- HSkip 0
- if tagexists
- Style button
- get *valu.NAME
- ifNotEmpty
- Text *it
- Link *valu
- help "View "
- get *msg
- if "Husband:"
- help husband
- else
- help wife
- endif
- else
- Text <unknown>
- Black
- endif
- if nowprinting
- Face bold
- else
- Blue
- endif
- else
- Style label
- endif
- TabWidth 3
- Border frame btr
-
- HSkip 0
- Style static w=1
- Border frame r
-
- ! Birth date and place
- NewLine
- Style label w=1
- Border frame l
- HSkip 0
-
- Style label j=right tw=1
- Text Born:
- Border frame lb
-
- HSkip 0
- Style label tw=1
- Text *valu.BIRT.DATE
- Border frame b
-
- HSkip 0
- Style label j=right w=40
- Text Place:
- Border frame b
-
- HSkip 0
- Style label tw=2
- Text *valu.BIRT.PLAC
- Border frame rb
-
- HSkip 0
- Style label w=1
- Border frame r
-
- ! Death date and place
- NewLine
- Style label w=1
- Border frame l
- HSkip 0
-
- Style label j=right tw=1
- Text Died:
- Border frame lb
-
- HSkip 0
- Style label tw=1
- Text *valu.DEAT.DATE
- Border frame b
-
- HSkip 0
- Style label j=right w=40
- Text Place:
- Border frame b
-
- HSkip 0
- Style label tw=2
- Text *valu.DEAT.PLAC
- Border frame rb
-
- HSkip 0
- Style label w=1
- Border frame r
-
- ! Father and Mother
- NewLine
- Style label w=1
- Border frame l
- HSkip 0
-
- Style label j=right tw=1
- Text Father:
- Border frame lb
-
- HSkip 0
- get *valu.FAMC.HUSB
- ifEmpty
- Style label
- else
- Style button
- Link *it
- Text *it.NAME
- help View father
- ifNot nowprinting
- Blue
- endif
- endif
- TabWidth 2
- Border frame b
-
- HSkip 0
- Style label j=right w=50
- Text Mother:
- Border frame b
-
- HSkip 0
- get *valu.FAMC.WIFE
- ifEmpty
- Style label
- else
- Style button
- Link *it
- Text *it.NAME
- help View mother
- ifNot nowprinting
- Blue
- endif
- endif
- TabWidth 1
- Border frame rb
-
- HSkip 0
- Style label w=1
- Border frame r
- @@GeDF@@WIFE Editing
- use HUSB Editing
- @@GeDF@@MARR Editing
- pass FRul
- newline
- style label w=1
- border frame l
- hskip 0
-
- style label j=right tw=1
- text Married:
- border frame lb
-
- show DATE FG
- hskip -1
- show PLAC FG
-
- HideExcess
- @@GeDF@@CHIL Editing
- pass FRul
- newline
- style label w=1
- border frame l
- hskip 0
-
- add cnum 1
- style label w=16 j=center f=bold
- cellbg 0 0 0
- rgb 0xFF 0xFF 0xFF
- text #cnum
- border frame ltbr
- hskip 0
-
- style label tw=1 j=right
- text Sex:
- border frame bt
-
- hskip 0
- style label
- text *valu.SEX
- border frame bt
- width -5
-
- hskip 0
- style label j=right
- text Name:
- border frame bt
- width -10
-
- hskip 0
- style button tw=3
- get *valu.NAME
- ifnotempty
- text *it
- link *valu
- help View child
- else
- text <unknown>
- endif
- border frame btr
- if nowprinting
- face bold
- else
- blue
- endif
-
- hskip 0
- style label w=1
- border frame r
-
- ! Birth date and place
- newline
- style label w=1
- border frame l
- hskip 0
-
- style label j=right tw=1
- text Born:
- border frame lb
-
- hskip 0
- style label tw=1
- text *valu.BIRT.DATE
- border frame b
-
- hskip 0
- style label j=right w=40
- text Place:
- border frame b
-
- hskip 0
- style label tw=2
- text *valu.BIRT.PLAC
- border frame rb
-
- hskip 0
- style label w=1
- border frame r
-
- ! Death date and place
- newline
- style label w=1
- border frame l
- hskip 0
-
- style label j=right tw=1
- text Died:
- border frame lb
-
- hskip 0
- style label tw=1
- text *valu.DEAT.DATE
- border frame b
-
- hskip 0
- style label j=right w=40
- text Place:
- border frame b
-
- hskip 0
- style label tw=2
- text *valu.DEAT.PLAC
- border frame rb
-
- hskip 0
- style label w=1
- border frame r
-
- ! Child's spouses
- setstr csex *valu.SEX
- get *valu.FAMS
- ifempty
- pass slst *valu.FAMS
- else
- passall slst *valu.FAMS
- endif
-
- @@GeDF@@FAMF Editing
- ! static text with level and tab
- newline
- get *name
- if
- style static
- text *lev
- text " "
- text *tag
- text " "
- else
- style label
- text *it
- text :
- endif
- tabwidth 2
- justify right
-
- ! edit field with value
- hskip 5
- style editvalue b=field w=-1
- newline
- @@GeDF@@TEMP Editing
- use FAMF Editing
- @@GeDF@@ANCE Editing
- use FAMF Editing
- @@GeDF@@DESC Editing
- use FAMF Editing
- @@GeDF@@ORDI Editing
- use FAMF Editing
- @@GeDF@@ADR1 Editing
- ! label on current line
- newline
- style label j=right w=110
- text *name
- text :
-
- ! edit the date
- hskip 5
- style editvalue b=field w=-1
- @@GeDF@@CITY Editing
- use ADR1 Editing
- @@GeDF@@STAE Editing
- use ADR1 Editing
- @@GeDF@@POST Editing
- use ADR1 Editing
- @@GeDF@@CTRY Editing
- use ADR1 Editing
- @@GeDF@@FORM Editing
- ! label on current line
- style label j=right tw=1
- get *msg
- ifnotempty
- text *msg
- else
- text Form:
- endif
-
- ! edit the version
- hskip 5
- style editvalue b=field w=-1
- @@GeDF@@TEXT Editing
- NewLine
- Style label j=right tw=1
- Text Source Text:
- HSkip 5
-
- ifNot nowprinting
- MinLines 8
- Style editcont w=-1 b=field
- help Enter any text from the source
- else
- Style edittext w=-1
- endif
- @@GeDF@@DATA Editing
- get *rec
- if HEAD
- newline
- style label tw=1 j=right
- text Source Data:
-
- hskip 5
- style editvalue b=field w=-1
-
- cleartabs
- settab #tab2
- show DATE Head
- show COPR
-
- elseif SOUR
- newline
- style label w=-1
- text Type of Data Recorded in this Source:
-
- show EVEN
- show AGNC
- newline 5
- tab 1
- hskip 5
- show NOTE Data
- newline 5
-
- else
- show TEXT
- endif
- @@GeDF@@EVEN Editing
- get *rec
- if FAM
- get INDI
- endif
- if SOUR
- Style label tw=1 j=right
- Text "Events:"
-
- HSkip 5
- Style editvalue b=field w=-1
-
- Show DATE Head
- Show PLAC Source
-
- elseif INDI
- get *TYPE
- ifempty
- get "Event"
- endif
- Style label f=bold tw=1
- Text *it
-
- Show DATE OK
- Show PLAC OK
-
- ifHasTags NOTE
- LeftSkip 5
- Show NOTE list
- NewLine
- Tab 2
- HSkip 5
- LeftSkip #hpos
- ShowAll NOTE list
- NewLine
- LeftSkip 4
- endif
-
- NewLine
- Style label tw=2 j=right
- Text Attach:
-
- HSkip 5
- Show NOTE list
-
- Pass hlin
-
- HideExcess
-
- endif
- @@GeDF@@AGNC Editing
- use ABBR Editing
- @@GeDF@@slst Editing
- newline
- style label w=1
- border frame l
- hskip 0
-
- style label j=right tw=1
- text Spouse:
- border frame lb
-
- hskip 0
- style button
- get *csex
- if "M"
- get *msg.WIFE
- help View child’s wife
- else
- get *msg.HUSB
- help View child’s husband
- endif
- link *it
- text *it.NAME
- tabwidth 3
- border frame rb
- ifnot nowprinting
- blue
- endif
-
- hskip 0
- style label w=1
- border frame r
- @@GeDF@@_IND Editing
- NewLine 2
- Style label w=#fsiz f=bold
- Text *inam
-
- NewLine
- Set dtop #vpos
- Style button w=#fsiz b=button
- Height #iht
- Link *msg
- ifnotempty *msg
- help Click for pedigree of this individual
- endif
-
- get #lnht
- ifNot 0
- NewLine
- Set midl #vpos
- Sub midl #dtop
- Div midl 2
- Mult midl -1
- NewLine #midl
- if -1
- get *msg.FAMC
- ifNotEmpty
- HSkip #fsiz
- Style static w=8 h=2
- Border 3dframe t
- endif
- else
- HSkip #fsiz
- Style static w=8 h=#lnht
- Border 3dframe tr
- endif
- endif
-
- Sub fsiz 10
- MoveTo #dtop
- NewLine #idrp
- HSkip 5
- Style static w=#fsiz
- Text *msg.NAME
-
- NewLine -2
- HSkip 5
- Style static w=#fsiz
- Text *msg.BIRT.DATE
-
- NewLine -2
- HSkip 5
- Style static w=#fsiz
- Text *msg.BIRT.PLAC
-
- Add fsiz 10
- NewLine #fskp
- @@GeDF@@_FLK Editing
- NewLine
- set ftop #vpos
- Newline 2
- set bsiz #fsiz
- sub bsiz 100
- set indt #fsiz
- sub indt #bsiz
-
- hskip #indt
- hskip 2
- style label w=#bsiz b=button
- height #fbut
- cellbg 0 0 0
- ifnotempty *msg
- help Open family record
- endif
-
- MoveTo #ftop
- hskip #indt
- style button w=#bsiz b=button j=center
- height #fbut
- cellbg 0xFF 0xF4 0xD3
- link *msg
- ifempty *msg
- text "(no family)"
- else
- text "Family"
- face bold
- endif
-
- NewLine -14
- @@GeDF@@_LNS Editing
- set ltop #vpos
- newline 27
- hskip -7
- style static w=7 h=#fspc
- border 3dframe ltb
-
- MoveTo #ltop
- @@GeDF@@INDI Record Printing
- Bg 0xFF 0xFF 0xFF
- Text \BM*M;TM*m\
- HSkip 0
-
- SetTab 178
- SetTab 345
- SetTab 512
- RightMargin 514
-
- HeaderText \TM*m;LM*e;RM*E;PU;FNTimes;FS14;R+\
- HeaderText Chart No. \HR24p;VS0\
- HeaderText \PO;FS18;BO;C+\Pedigree Chart\VS0\
- HeaderText *NAME
- NoFooter
-
- Style label j=center w=175 f=plain
- Font Times
- Text Number 1 on this chart is the same
- Border frame ltr
-
- NewLine
- Style label j=center w=175 f=plain
- Text as Number ____ on Chart No. ____
- Border frame lbr
- Font Times
-
- EndToolbar
-
- !------------------ Column 1 -----------------
-
- Set dtop #vpos
- Style label h=119
-
- ! Father
- Set nmid 2
- Pass _PAT *FAMC.HUSB
- Pass _MAR *FAMC
-
- NewLine
- Style label h=64
- Border frame l
-
- ! This Person
- Show NAME INDI
- Show BIRT Born:
- Show DEAT Died:
- Pass _MAR *FAMS
-
- NewLine
- Style label h=9
- Border frame l
-
- ! This Person's spouse
- NewLine
- get *SEX
- if M
- get *FAMS.WIFE
- else
- get *FAMS.HUSB
- endif
- ifEmpty
- Style label
- else
- Style label
- Font Times
- Text *it.NAME
- endif
- Border frame bl
- Width 145
-
- NewLine
- Style static s=9
- Font Times
- Border frame l
- Text Spouse
-
- NewLine
- Style label h=21
- Border frame l
-
- ! Mother
- Pass _MAT *FAMC.WIFE
-
- LeftSkip 178
- MoveTo #dtop
-
- !------------------ Column 2 -----------------
-
- Style label h=42
-
- ! PP
- Pass _PAT *FAMC.HUSB.FAMC.HUSB
- Pass _MAR *FAMC.HUSB.FAMC
-
- NewLine
- Style label h=71
- Border frame l
-
- ! PM
- Pass _MAT *FAMC.HUSB.FAMC.WIFE
-
- Style label h=106
-
- ! MP
- Pass _PAT *FAMC.WIFE.FAMC.HUSB
- Pass _MAR *FAMC.WIFE.FAMC
-
- NewLine
- Style label h=71
- Border frame l
-
- ! MM
- Pass _MAT *FAMC.WIFE.FAMC.WIFE
-
- LeftSkip 345
- MoveTo #dtop
-
- !------------------ Column 3 -----------------
-
- Style label h=2
-
- ! PPP
- Pass _PAT *FAMC.HUSB.FAMC.HUSB.FAMC.HUSB
- Pass _MAR *FAMC.HUSB.FAMC.HUSB.FAMC
-
- NewLine
- Style label h=3
- Border frame l
-
- ! PPM
- Pass _MAT *FAMC.HUSB.FAMC.HUSB.FAMC.WIFE
-
- Style label h=6
-
- ! PMP
- Pass _PAT *FAMC.HUSB.FAMC.WIFE.FAMC.HUSB
- Pass _MAR *FAMC.HUSB.FAMC.WIFE.FAMC
-
- NewLine
- Style label h=3
- Border frame l
-
- ! PMM
- Pass _MAT *FAMC.HUSB.FAMC.WIFE.FAMC.WIFE
-
- Style label h=6
-
- ! MPP
- Pass _PAT *FAMC.WIFE.FAMC.HUSB.FAMC.HUSB
- Pass _MAR *FAMC.WIFE.FAMC.HUSB.FAMC
-
- NewLine
- Style label h=3
- Border frame l
-
- ! MPM
- Pass _MAT *FAMC.WIFE.FAMC.HUSB.FAMC.WIFE
-
- Style label h=6
-
- ! MMP
- Pass _PAT *FAMC.WIFE.FAMC.WIFE.FAMC.HUSB
- Pass _MAR *FAMC.WIFE.FAMC.WIFE.FAMC
-
- NewLine
- Style label h=3
- Border frame l
-
- ! MMM
- Pass _MAT *FAMC.WIFE.FAMC.WIFE.FAMC.WIFE
-
- LeftSkip 2
- NewLine
-
- HideExcess
- ZoomWindow
-
-
- @@GeDF@@_PAT Printing
- newline
- hskip -22
- style static w=20 j=right s=9
- font times
- text #nmid
- text .
- add nmid 1
- hskip 2
-
- style label
- get *msg.NAME
- ifnotempty
- font Times
- text *it
- get #lmgn
- if 345
- get *msg.FAMC
- ifnotempty
- text " ->"
- endif
- endif
- endif
- tabwidth 1
-
- newline
- lineskip -4
- style static tw=1 s=9
- font Times
- border frame lt
- text Born:
- text *msg.BIRT.DATE
-
- newline
- style static tw=1 s=9
- font Times
- border frame l
- text Plac:
- text *msg.BIRT.PLAC
-
- newline
- style static tw=1 s=9
- font Times
- border frame l
- text Died:
- text *msg.DEAT.DATE
-
- newline
- style static tw=1 s=9
- font Times
- border frame l
- text Plac:
- text *msg.DEAT.PLAC
- @@GeDF@@_MAT Printing
- NewLine
- HSkip -22
- Style static w=20 j=right s=9
- Font Times
- Text #nmid
- Text .
- Add nmid 1
- HSkip 2
-
- LineSkip -3
- style label
- get *msg.NAME
- ifnotEmpty
- font Times
- Text *it
- get #lmgn
- if 345
- get *msg.FAMC
- ifNotEmpty
- Text " ->"
- endif
- endif
- endif
- Border frame bl
- TabWidth 1
-
- NewLine 1
- Style static tw=1 s=9
- font Times
- Text Born:
- Text *msg.BIRT.DATE
-
- NewLine
- Style static tw=1 s=9
- font Times
- Text Plac:
- Text *msg.BIRT.PLAC
-
- NewLine
- Style static tw=1 s=9
- font Times
- Text Died:
- Text *msg.DEAT.DATE
-
- NewLine
- Style static tw=1 s=9
- font Times
- Text Plac:
- Text *msg.DEAT.PLAC
- LineSkip -1
- @@GeDF@@_MAR Printing
- newline
- style static tw=1 s=9
- font Times
- border frame l
- text Marr:
- text *msg.MARR.DATE
-
- newline
- style static tw=1 s=9
- font Times
- border frame l
- text Plac:
- text *msg.MARR.PLAC
- lineskip -1
- @@GeDF@@NAME Printing
- NewLine
- get *msg
- if INDI
- HSkip -22
- Style label j=right w=20
- Font Times
- Text 1.
-
- HSkip 2
- Style editvalue w=253 f=bold
- Font Times
- Border frame lb
- HideExcess
- else
- ! start new line and label
- Style label tw=1 j=right
- Text Name:
-
- ! edit name
- HSkip 5
- Style editvalue w=-1 b=field
- endif
- @@GeDF@@BIRT Printing
- newline
- style static w=28 s=9
- Font Times
- border frame l
- text *msg
- show DATE OK
- show PLAC OK
- HideExcess
- @@GeDF@@DATE Printing
- get *msg
- if FG
- style editvalue tw=1
- border frame lrb
- content date
- elseif Head
- style label j=right tw=1
- text Date:
-
- hskip 5
- style editvalue b=field w=-1
- content date
- elseif OK
- style label f=plain
- Font Times
- text *valu
- width 225
- endif
- @@GeDF@@PLAC Printing
- get *msg
- if OK
- newline
- style static w=28 s=9
- Font Times
- border frame l
- text Plac:
-
- hskip 0
- style label f=plain
- Font Times
- text *valu
- width 225
- elseif FG
- style label j=right w=40
- text Place:
- border frame b
-
- hskip 0
- style editvalue tw=2
- border frame lrb
-
- hskip 0
- style label w=1
- border frame r
- else if Header
- show FORM Place Format:
- else if Source
- newline
- style static b=field tw=1
- text Place:
-
- hskip 0
- style editvalue w=-1 b=field
- endif
- @@GeDF@@DEAT Printing
- use BIRT Printing
- @@GeDF@@clst Editing
- NewLine
- style button w=#fsiz b=button
- text " "
- text #cnum
- text ". "
- add cnum 1
- link *msg
- text *msg.NAME
- help Click to view pedigree of this child
- @@GeDF@@sbut Editing
- NewLine
- get #cnum
- ifNot 0
- Style button w=#fsiz b=button
- Text " "
- Text #cnum
- Text ". "
- get *this.SEX
- if "M"
- Link *msg.WIFE
- Text *msg.WIFE.NAME
- else
- Link *msg.HUSB
- Text *msg.HUSB.NAME
- endif
- endif
- Add cnum 1
- @@GeDF@@eIND Record Editing
- Bg 0xAA 0xD4 0xFF
- ToolBg 0xAA 0xD4 0xFF
-
- LineSkip 2
- SetTab 100
- SetTab 150
- RightMargin 500
-
- Style label f=bold s=12 w=-1
- Text "Edit details for "
- Text *this.NAME
-
- EndToolbar
-
- ShowAll NAME INDI
- Pass hlin
-
- Show BIRT
- ShowAll BIRT
-
- Show DEAT
- ShowAll DEAT
-
- ShowAll BAPM
- ShowAll CHR
- ShowAll BLES
- ShowAll BARM
- ShowAll BASM
- ShowAll ADOP
- ShowAll CHRA
- ShowAll CONF
- ShowAll FCOM
- ShowAll ORDN
- ShowAll GRAD
- ShowAll EMIG
- ShowAll IMMI
- ShowAll NATU
- ShowAll CENS
- ShowAll RETI
- ShowAll PROB
- ShowAll BURI
- ShowAll WILL
- ShowAll CREM
- ShowAll EVEN
- ShowAll BAPL
- ShowAll CONL
- ShowAll ENDL
- ShowAll SLGC
-
- Set satt #vpos
- ShowAll OCCU
- ShowAll EDUC
- ShowAll DSCR
- ShowAll RELI
- ShowAll SSN
- ShowAll IDNO
- ShowAll PROP
- ShowAll CAST
- ShowAll NCHI
- ShowAll NMR
- ShowAll TITL
- ShowAll NATI
-
- get #vpos
- ifNot #satt
- Pass hlin
- endif
-
- ifHasTags NOTE
- Show NOTE list
- NewLine
- Tab 1
- HSkip 5
- LeftSkip #hpos
- ShowAll NOTE list
- NewLine
- LeftSkip #dlmg
- Pass hlin
- endif
-
- ifHasTags SOUR
- Show SOUR
- NewLine
- Tab 1
- HSkip 5
- LeftSkip #hpos
- ShowAll SOUR
- NewLine
- LeftSkip #dlmg
- Pass hlin
- endif
-
- Style label tw=1 f=bold
- Text Attach
-
- HSkip 5
- Show NOTE list
- Show SOUR
-
- ShowAll CHAN
-
- HideExcess
- @@GeDF@@iEVT Editing
- Style label f=bold tw=1
- Text *name
-
- Show DATE OK
- Show PLAC OK
-
- ifHasTags NOTE
- LeftSkip 5
- Show NOTE list
- NewLine
- Tab 2
- HSkip 5
- LeftSkip #hpos
- ShowAll NOTE list
- NewLine
- LeftSkip 4
- endif
-
- ifHasTags SOUR
- LeftSkip 5
- Show SOUR
- NewLine
- Tab 2
- HSkip 5
- LeftSkip #hpos
- ShowAll SOUR
- NewLine
- LeftSkip 4
- endif
-
- newline
- style label tw=2 j=right
- text Attach:
-
- hskip 5
- Show NOTE list
- Show SOUR
-
- Pass hlin
-
- HideExcess
- @@GeDF@@BIRT Editing
- use iEVT Editing
- @@GeDF@@hlin Editing
- newline
- rightmargin 510
- LeftSkip 0
- hrule
- rightmargin 500
- LeftSkip 4
- @@GeDF@@BAPM Editing
- use iEVT Editing
- @@GeDF@@CHR Editing
- use iEVT Editing
- @@GeDF@@BURI Editing
- use iEVT Editing
- @@GeDF@@FRul Editing
- RightMargin 509
- hrule
- RightMargin 507
- @@GeDF@@BLES Editing
- use iEVT Editing
- @@GeDF@@BARM Editing
- use iEVT Editing
- @@GeDF@@BASM Editing
- use iEVT Editing
- @@GeDF@@ADOP Editing
- use iEVT Editing
- @@GeDF@@CHRA Editing
- use iEVT Editing
- @@GeDF@@CONF Editing
- use iEVT Editing
- @@GeDF@@FCOM Editing
- use iEVT Editing
- @@GeDF@@ORDN Editing
- use iEVT Editing
- @@GeDF@@GRAD Editing
- use iEVT Editing
- @@GeDF@@EMIG Editing
- use iEVT Editing
- @@GeDF@@IMMI Editing
- use iEVT Editing
- @@GeDF@@NATU Editing
- use iEVT Editing
- @@GeDF@@CENS Editing
- use iEVT Editing
- @@GeDF@@RETI Editing
- use iEVT Editing
- @@GeDF@@PROB Editing
- use iEVT Editing
- @@GeDF@@WILL Editing
- use iEVT Editing
- @@GeDF@@CREM Editing
- use iEVT Editing
- @@GeDF@@BAPL Editing
- use lEVT Editing
- @@GeDF@@CONL Editing
- use lEVT Editing
- @@GeDF@@ENDL Editing
- use lEVT Editing
- @@GeDF@@SLGC Editing
- use lEVT Editing
- @@GeDF@@iATT Editing
- newline
- Style label f=bold tw=2
- Text *name
-
- hskip 5
- style editvalue b=field w=-1
-
- HideExcess
- @@GeDF@@OCCU Editing
- use iATT Editing
- @@GeDF@@EDUC Editing
- use iATT Editing
- @@GeDF@@DSCR Editing
- use iATT Editing
- @@GeDF@@RELI Editing
- use iATT Editing
- @@GeDF@@SSN Editing
- use iATT Editing
- @@GeDF@@IDNO Editing
- use iATT Editing
- @@GeDF@@PROP Editing
- use iATT Editing
- @@GeDF@@CAST Editing
- use iATT Editing
- @@GeDF@@NCHI Editing
- use iATT Editing
- @@GeDF@@NMR Editing
- use iATT Editing
- @@GeDF@@NATI Editing
- use iATT Editing
- @@GeDF@@ficn Editing
- MoveTo 2
- HMoveTo 2
-
- icon Open File:Open...
- help Open new file
- hskip -1
-
- icon Save File:Save
- help Save file
-
- hskip -1
- icon Print File:Print...
- help Print
-
- hskip -1
- icon Preview File:Print Preview...
- help Print preview
-
- hskip 2
- icon Search Edit:Search...
- help Search the file
-
- hskip -1
- icon Index View:Index...
- help Open index window
-
- @@GeDF@@gmen Editing
- hskip 24
- icon Back Go:Back
- help Go back
-
- hskip 2
- icon Prev Go:Prev
- help "Previous "
- help *rec
- help " record"
-
- hskip -1
- icon Next Go:Next
- help "Next "
- help *rec
- help " record"
-
- hskip 2
- icon Home Go:Home
- help Go to home record
- @@GeDF@@Nlab Editing
- style label w=-1
- get *rec
- if HEAD
- text "Header Notes"
- elseif FAM
- text "Notes on "
- get *this.HUSB.NAME
- ifempty
- get ?
- endif
- text *it
- text " / "
- get *this.WIFE.NAME
- ifempty
- get ?
- endif
- text *it
- text " Family"
- elseif SOUR
- get *msg
- ifempty
- text "Notes on "
- else
- text *msg
- endif
- get *this.ABBR
- ifempty
- get *this.TITL
- ifempty
- get <Unnamed Source>
- endif
- endif
- text *it
- else
- text "Notes on "
- get *this.NAME
- ifempty
- get <Unnamed Record>
- endif
- text *it
- endif
- @@GeDF@@CHAN Editing
- newline 1
- hskip 20
- style static s=9 j=center
- text "Changed: "
-
- text *DATE
- get *DATE.TIME
- ifnotempty
- text ", "
- text *it
- endif
- width -10
- cellbg 0xFF 0xF4 0xD3
- border frame rtbl
-
- HideExcess
- newline 5
- @@GeDF@@SOUa Record Editing
- Bg 0xAA 0xD4 0xFF
- ToolBg 0xAA 0xD4 0xFF
-
- LineSkip 2
- SetTab 80
- SetTab 140
-
- ! Source citation in separate window, but link
- ! to actual source
-
- style label j=right tw=1
- text Source:
-
- hskip 5
- style button w=-1 f=underline
- get *valu
- if validlink
- get *it.ABBR
- ifempty
- get *valu.TITL
- ifempty
- get <Unnamed Source>
- endif
- endif
- text *it
- help View source record
- else
- text "Link Source"
- endif
- addlink
- blue
- endtoolbar
-
- show PAGE
- show DATA
- show QUAY
-
- ifHasTags NOTE
- settab 80
- leftskip 5
- Show NOTE list
- NewLine
- Tab 1
- HSkip 5
- LeftSkip #hpos
- ShowAll NOTE list
- NewLine
- LeftSkip #dlmg
- endif
- newline
- tab 1
- hskip 5
- Show NOTE
-
- HideExcess
- ZoomWindow
- @@GeDF@@PAGE Editing
- use ABBR Editing
- @@GeDF@@QUAY Editing
- !title
- newline
- style label j=right tw=1
- text Quality:
-
- ! popup menu
- hskip 5
- style popupedit w=100 b=popbutton f=plain s=9 j=center
- popupitem Unknown:
- popupitem Unreliable:0
- popupitem Questionable:1
- popupitem Secondary:2
- popupitem Primary:3
- cellbg 0xD8 0xD8 0xD8
- help Click to set quality of source
- @@GeDF@@SOUb Record Editing
- Bg 0xAA 0xD4 0xFF
- ToolBg 0xAA 0xD4 0xFF
-
- LineSkip 2
- SetTab 80
- SetTab 140
-
- ! Source citation in separate window for embedded
- ! citation
-
- style label j=right tw=1
- text Source:
-
- hskip 5
- style editcont b=field w=-1
-
- show TEXT
-
- ifHasTags NOTE
- settab 80
- leftskip 5
- Show NOTE list
- NewLine
- Tab 1
- HSkip 5
- LeftSkip #hpos
- ShowAll NOTE list
- NewLine
- LeftSkip #dlmg
- endif
- newline
- tab 1
- hskip 5
- Show NOTE
-
- HideExcess
- ZoomWindow
- @@GeDF@@eFAM Record Editing
- Bg 0xAA 0xD4 0xFF
- ToolBg 0xAA 0xD4 0xFF
-
- LineSkip 2
- SetTab 100
- SetTab 150
- RightMargin 500
-
- Style label f=bold s=12 w=-1
- Text "Edit events for "
- get *this.HUSB.NAME
- ifEmpty
- get ?
- endif
- Text *it
- Text " / "
- get *this.WIFE.NAME
- ifEmpty
- get ?
- endif
- Text *it
- Text " Family"
-
- EndToolbar
-
- ShowAll ENGA
- ShowAll MARB
- ShowAll MARC
- ShowAll MARL
- ShowAll MARS
- ShowAll DIV
- ShowAll DIVF
- ShowAll ANUL
- ShowAll CENS
- ShowAll EVEN
- ShowAll SLGS
- @@GeDF@@ENGA Editing
- use iEVT Editing
- @@GeDF@@MARB Editing
- use iEVT Editing
- @@GeDF@@MARC Editing
- use iEVT Editing
- @@GeDF@@MARL Editing
- use iEVT Editing
- @@GeDF@@MARS Editing
- use iEVT Editing
- @@GeDF@@DIV Editing
- use iEVT Editing
- @@GeDF@@DIVF Editing
- use iEVT Editing
- @@GeDF@@ANUL Editing
- use iEVT Editing
- @@GeDF@@SLGS Editing
- use lEVT Editing
- @@GeDF@@lEVT Editing
- Style label f=bold tw=1
- Text *name
-
- Show DATE OK
- Show PLAC OK
- show STAT
- show TEMP
-
- ifHasTags NOTE
- LeftSkip 5
- Show NOTE list
- NewLine
- Tab 2
- HSkip 5
- LeftSkip #hpos
- ShowAll NOTE list
- NewLine
- LeftSkip 4
- endif
-
- ifHasTags SOUR
- LeftSkip 5
- Show SOUR
- NewLine
- Tab 2
- HSkip 5
- LeftSkip #hpos
- ShowAll SOUR
- NewLine
- LeftSkip 4
- endif
-
- newline
- style label tw=2 j=right
- text Attach:
-
- hskip 5
- Show NOTE list
- Show SOUR
-
- Pass hlin
-
- HideExcess
- @@GeDF@@STAT Editing
- !title
- newline
- style label tw=2 j=right
- text Status:
-
- ! popup menu
- hskip 5
- style popupedit b=popbutton j=center f=plain s=9 =
- w=100 h=16
- cellbg 0xD8 0xD8 0xD8
- popupitem {Unspecified}:
- popupitem Child
- popupitem Cleared
- popupitem Completed
- popupitem Infant
- popupitem Qualified
- popupitem Pre-1970
- popupitem Stillborn
- popupitem Submitted
- popupitem Uncleared
- @@GeDF@@
- @@GeDF@@Current GEDitCOM Format Editing Help
- ....r..j..U1zsB2.zy.x.I76y.1zs2A....../X..2.QU...6U..E0L....wE./
- .E....34..2/LU...No..E4g.../xk.0.Wg...7d..20SE...rA./.C3...2q..1
- /Bo...fO..28uE..0mY./.gr...AVU.116k../0d..EEhU..2GY./F2q...Fyk.3
- 2UU../8a..EGh...38E.//Gq...JwE.23UA../QP..EL9E..3s../FSF...MMU.2
- 45E../Vz..2MXU..4AQ..FXS...N2jzz4Aw../Y1zzw...0E./U.1E.8..A....8
- ..........Y.1E.8..A/...8..........2.1E.8..A2...8..........6.1E.8
- ..A....82JVShkp1..U.1E.8..A0...8..........A.1E.8..A2...8.....BE.
- ....1E.8..A....8.....BE.....1E.8..A/...8...........N2G.U60.U60/I
- O4Zn64VZP5.UR4xkOKAUNqZqNLAUNaxmPK3o9LBkNKBdNaZX64ZiNaxmPK3oOKxi
- 643WPrJo64JYOLFdPaQUFoJ2EoxB62NdP4Jn65RcNKsURLBdPaQUR4VZ63/ZN4Zb
- QaJZ62NjQapVR0sUJ4VZ64pVOKsURLBZ64xa65FcNG/ENKFdNr7ZNG/4Pr7hMLEU
- OLAUR4wURaZZRm/VPaEUQ57dPbEUNaxpQWpbNKtZQa3oOKxi65/ZN4ZbQaJZ64Bc
- ML7oQm/VPaEUQqZhQ4lZ64NVPKZgSG/bQaxpQ0/XO43mR5Ai63FcNG/ENKFdNr7Z
- NG/4Pr7hMLEUN4xZQm/cMLNZ65BjPKIUNKFdR4ZiNm/aNK3oRL7ZQmkUMbJo64Zn
- 64Zn65JnRK3gP5YUMaJoR4Jm65Fj65JnNG/oO4IUF4JaMLJgR0/5FIFdR2BDHG/4
- Pr7hMLEU84xm643iPrFcNL6UMrJnR4xh64NjQapVR0YUR4wUNKFdR0/tPrJm64FV
- R42UMKtY65FcNKsUP4xVN0/oO4IUI4JYOKRmNKIUFaxmPK3o65RcNKsUSKxp65RV
- PbEUR4wURaZZRm/VPaEUQ57dPbEUQ4JYOKRmNKIUMqVVQbFn643iN0/aMKpdP5YU
- Nr7jRL.UMqVVQbFn9UoBIr/ZMqZaOKAUFKFdR4ZiNm/7PaNjQapVR4ZjPW/aPr6U
- FK3XO0/ISL/Z64xa637ZMqxmN.oU60.U60/0NLBdN4Jn65FcNG/aPqlgPrRdPaQU
- O4JgQ0kUPK3iSG/jNW/oO4IUNaJVR5JmNLAUPqMUR4VZ63/ZN4ZbQaJZ62NjQapV
- R0/VQaIUN4xXRKpZPbFZN0/WSG/cNKlk65/jQ0ppQ0/nR57dPaRn9W//Qm/tPrIU
- PKxqNG/oO4IUPKxpQqIUML7jRKtY65FcNG/qML7dPrJn65RdPaFjRrAg65BjPKIU
- O4JgQ0/oNLVo65RdP4kUML/kNK3m64Zi65FcNG/gPrRZQW/gNKNo64BjQatZQW/b
- OLNdPaQUPKxmNG/dPaNjQapVR4ZjPW/VMaxpR0/qML7dPrJn64xWOaJXR5Ai63Bp
- MqUUO4JgQ0/dQm/hPrBo65JnNKNpP0/aPr6UNr7VQ4VdMm/ZP4JhNKtoQm/gOKhZ
- 64ZXPqtn9UoBdG/7HYF7JYZ2JI3A637ZMqxmN5AB60.U60.UJ4VZ64ZXPqsUMa3m
- 64xa64JVMqUUGIt2GJN7F3J/H0/GNKBjQaEUNqZqNLAUMG/nNL7dNLAUPqMUMbJo
- R4xiQm/oO43o65/mPrNdN4IUQqVjQbEUMrJoQm/oPm/hMKtt64pZPbIUMqxhPK3i
- N0sUJ4wUP4JVQasURqVVR0/VPbYUOKBjPW/YPqJn90/hPrNZ65FcNG/hPrJnNG/j
- RaJm65FcNG/WRLFoPqsv65BjPKIUO4JgQ0/oNLVo65RdP4kUML/kNK3m64Zi65Fc
- NG/gPrRZQWpgNKNo64BjQatZQW/jNW/oO4IURqZiN4xr9W/7NW/WRLFoPqtn643m
- NG/YOKphNKEg64Zo64pZMKtn65FcNG/XPr7mNLBkPqtYOKtb64pZPbIUOLFZPG/d
- Qm/XRL7mNKtoP5YUN4ZnMK7gNKEi1G.U60.U63FcNG/bQaJZPW/VQb7jRm/WRLFo
- Pqtn65FcMLEUNaxgP4xr643mNG/oPm1GFqwUEa3XOxAUR4wUR4VZ65/mNLNdPrJn
- P5YURaZZRqJY657ZMqxmN0/jQW/oPm/nMr7jP4kUR4wUR4VZ6B7EQaJqOKxpQxAU
- Pr6UoYtZS5HH62ZCF2ZKGIFJEIkUQaJXPr7Y64Zi65FcNG/aOKlZ9W/IO4IUoYVj
- PKLH647pR5FjPW/bPqJn65Fj65FcNG/XRL7mNKto64VjPKIUQaJXPr7Y9UoU60.U
- 60/IO4IUQaJnR0/jNW/oO4IURqZiN4xr64RdRaJn642UNaxpQWpbNKtZQa3oOKxi
- 65/ZN4ZbQaJZ64BcML7o64NjQW/oO4IUMrJmQaJiR0/dPaFdRaZYRK3g9W/NPrIU
- Mq3iPaxo64JiR4Jm643iSG/YMLFV64ZiR4wUR4VdQm/rOKtYPrQi63Fj64JiR4Jm
- 64FVR42UMK7jRLEUR4VZ64BpQb7ZPbEUOKtYOLNdN5JVP0kUMqldMqgUPqsUR4VZ
- 64tVPKIUOKsUR4VZ647gRKIUMaxs9W/NPrIURqZgP0/bNLEUMG/iNLQURqZiN4xr
- 65RcNL7Z65ZjRG/XMKsUNKFdR0/oO4IUPa3hNGkUMKlg64JqNKtoQm/VPaEUMLFo
- QaZWRLFZQmkUPaxoNLAg643iN0/nPrJmMqJn9UoU60.U60/NPrIUMq3i64BgOKBf
- 64xi643iSG/jR4VZQW/iMKpZ64Zi65FcNG/XO43mR0/oPm/bPm/oPm/oO43o65/Z
- QbBjPhJn65/ZN4ZbQaJZ64BcML7o9W/CMKpZQm/dPW/oO4IUP43nR0/bNKtZQa3o
- OKxi65RdP4kUMaIUNaxgP4xrNKEUMbYUMG/YML7f64ldPaIUOKMUQqxhNG/VPaBZ
- QrFjQbAUML7Z64hiPrRi64NjQW/oO43o64ZiN4ZqOKFpMKki62Za65FcNG/iMKpZ
- 64Zn64tjR0/aPqlgPrRZN0/WSG/V64FVQagUP4ZiNGkUR4VZPW/oO43o64tVPKIU
- OLAUR4VZ64lVQrEUOqtjRqsUPa3hNG/fPaxrPW/dPW/oO43o64ldPaIi1G.U60.U
- 627ZR5RZNKsUNK3XO0/cRLBWMKtY643iN0/rOKNZ65RdP4kUMaIUMG1GFa3hOKlt
- om/WRLFoPqsi63ZjRG/XMKsUMqldMqgUR4VjQqIUMbJoR4xiQm/oPm/qOKJr65Fc
- NG/aMKpdP5YUQaJXPr7Y64NjQW/oO43o64BjRL/gNGsB60.U60.UEaJgPrQUR4VZ
- 64ZiN4ZqOKFpMKkURqZgP0/WNG/gOLBoQm/jNW/VP4kUO4Zn64xm64VZQW/XO4Zg
- N57ZPW/VPaEUMKtt64xoO4Jm65BkPrJnNLAU847ZQqZYNLAUR4VZ64xiNG/jPW/o
- O4IUMrJmQaJiR0/XO43mR0Yi63ZjRG/XMKsUMqldMqgUMKtt64xa65FcPrBZ64tV
- PKJn65Fj65NdNLQUR4VZOL6UQ4JYOKRmNKIUMqVVQbFn9UoU60.U60/IO4IUQ57d
- PbFZN0/mNL/jQbEURqZgP0/VP5Bj647Z642UNaxpQWpbNKtZQa3oOKxi65/ZN4Zb
- QaJZ64BcML7o90/WRLEUOLEURqZgP0/iPrEUQaJnNKpWP4IUR4VZ64xiNG/jPW/o
- O4IUQqBmNKJi9W/IO4IUQ57dPbFZN0/mNL/jQbEURqZgP0/aOLEUPqsUPqtZ65/V
- NqIg647Z64Zi647gMKBf643iN0/rO4ZoNGkUMKtY64RdRaIUMaZmR4Ug64FZMLFc
- 90/VPaEUPK3mQaZVNqIUOKtaPr7hMLFdPqsUMK7jRLEUNK3XO0/kNL7nPqsUOKsU
- R4VZ64BcML7o9W/IO4IUQ57dPbFZN0/mNL/jQbEURqZgP0/iPrEUOKtXP5JYNG/V
- PbYUPrFcNL6UNLNZPbFn90/iPrFZQmkUPr6UQqxpQaBZQm/jPW/oO4IUOKtYOLNd
- N5JVP0sUEG/hMKZi657ZMLBjPW/aPr6URLBdPaQUR4VZ63/ZN4ZbQaJZ62NjQapV
- R0/dQm/oPm/WNG/VMalZ65Fj65/mOKto65FcNLBZ64tdMqIUPqtZ9L/VNqIUQ4JY
- OKRmNKIUMqVVQbFn9UoBdG/4EIp7H3YUIaJXPr7YQkoU60.U60/IO4IUOKBjPW/W
- ML6UPqMUNK3XO0/4EIp7H3YUIaJXPr7Y64RdRaJn642UQqJmOKJn64xa647pR5Fj
- PbAUR4VVR0/kQaxqOKFZ65BcPr7o64BpR5AUR4wUPK3iSG/hNKtp64BjPKpVPaEi
- 63Fj64lZML7i65RcMLEUMKtt64ZXPqsUN4xZQmkUPKxqNG/oO4IUPKxpQqIUPrNZ
- QW/oO4IUMbJoR4xiCm/nPqpZ64VZP5.UR4JsR0/rOKlg643kQ4JVQW/dPW/oO4IU
- P4xrNL6hP4JaR0/XPr7iNL6UPqMUR4VZ65RdPaFjRmsUGKMUMbJoR4xiQm/VQaIU
- N4ZhPKJY90/dR0/hNK3iQm/oO4IUMqxmQaJnQ4xiN4ZiNm/hNKtp64ZoNKoUOLAU
- MrJmQaJiR4lt64FdQq3WP4JY9UoU60.U60/IO4IUNr7ZNKsUML7mPrQUMbJoR4xi
- Qm/oO43o64NjP4ljRm/VQaIUR4wUoYRj627VMqjH65Fj65FcNG/kQaJqOKxpQqlt
- 65NdNLRZN0/mNKBjQaEUPr6UR4wUQqBmPqlg65Fj65FcNG1GI57ZRaZjRLDH64xm
- 6B7CNLVoom/4EIp7H3YUQaJXPr7Y64Zi65FcNG/aOKlZ9W/IO4IUoYVjPKLH647p
- R5FjPW/bPqJn65Fj65FcNG/XRL7mNKto64VjPKIUQaJXPr7Y9UoU60.U60/IO4IU
- QaJnR0/jNW/oO4IURqZiN4xr64Zn642UNa3hOKlt64RmPrJk64BcML7o9W/7R0/g
- OLBoQm/WMLBdMm/dPaNjQapVR4ZjPW/VMaxpR0/ZMKBc65BkPrJnNG/VPaEUNK3X
- O0/XO4ZgN0/dPW/oO4IUNa3hOKlt9W/IO4IUPqtgSG/YMLFV65ZjRG/XMKsUNKFd
- R0/dPW/oO4IUMqVVQbEUML7Z65FcNG/YMLFZ643iN0/kP43XNG/aPr6UR4VZ64pV
- Qb7dMKRZ64JqNKto9W/NPrIUMq3i64BgOKBf643iSG/iMKpZ64ldQrFZN0/dPW/o
- O4IUNa3hOKlt64RmPrJk65Fj65BZNG/oO43o64ZiN4ZqOKFpMKnJQm/kNKFdNr7Z
- NG/XO43mR0sUJ4VZ65/jQrBdMalZ64tVPKJn65RdP4kUOKtXP5JYNG/oO4IUO5Jn
- Ma3iN0kUR4VZ65RdNaIg643gP0/XO4ZgN57ZPWkUR4VZ65/VQaJiR5AUPqMUR4VZ
- 64VpQq7VPaEg65FcNG/kML7ZPbFn64xa65FcNG/rOKNZ90/VPaEUQr/jRLBZQm/j
- NW/ZMKBc64BcOKlY9UoU60.U627ZP4xr65FcNG/XO43mR0/tPrIUMq3i64BgOKBf
- 642UMbJoR4xi65Fj65NdNLQUMKtY64JYOLEUMKlg64xoO4Jm64JqNKtoQm/aPr6U
- R4VZ64NVPKZgSGsUJ4VZQaIUML7Z643gQqwUPr/oOKxiQm/aPr6UMLFoMKBcOKtb
- 64tjR4Jn643iN0/nPrJmMqJn9UoU60.U62Za65ZjRG/kQaZiR0/V64NVPKZgSG/m
- NKBjQaEg65ZjRG/rOKlg64RZR0/V657ZQ4xmR0/qNL7t65BdPKZgML6UR4wUR4VZ
- 64NVPKZgSG/bQaxpQ0/XO43mR0/jPW/oO4IUQqBmNKJi9W/7R0/rOKlg647Z64Zi
- 647gMKBf643iN0/rO4ZoNG/VPaEUOLEURqZgP0/jPalt65FcNG/aMKpdP5YUNr7j
- RL.UMqVVQbEi63FcNG/ZS5FmMG/ZRaJiR5Ag64tjR4Jn90/VPaEUQqxpQaBZ647Z
- P4xr65FcNG/XO43mR0/rOKlg64tjR0/kQaZiR0sB1OIUG2J/F2JG637ZMqxmN.oU
- 60.U60/IO4IUG4JVN4Jm637ZMqxmN0/dQm/nOKpkP5YUN4ZnQ4lVSKJY64Zi642U
- QqJmOKJn64xa64JYOLFdPaQUNaZZP4Fn9W/NPrIUMq3i64pVOqIUMKtt64BcMKtb
- NLAUSKxp65RVPbEU85BZNG/6FI32FJ6UIaJXPr7Y64NjQW/oO4IUPKJVPaZiNrAU
- PqMUPKxnR0/jNW/oO4IUNaZZP4Fn8GsUI57jMa3WP5YUR4VZ64xiP5YUR4VdPaRn
- 65ZjRG/hOKRcR0/XO43iNqIUML7Z65FcNG/aOKlZ64tVPKIU85BZNG1GFaZgNHfH
- 64NdNKlY8G/VPaEUR4VZ64VZMKFZQW/iPrFZQm.cNKFdR0/VPW/qOKJr647t64Bg
- OKBfOKtb647pR5FjPW/VR0/oO4IUMaxoR4xh64xa65FcNG/6FI32FJ6UIaJXPr7Y
- 65RdPaFjRmYi1G.U60.U62Za65ZjRG/kQaZiR0/oO4IUG4JVN4Jm657ZMqxmN0/d
- R0/rOKlg643kQ4JVQW/qNL7t65BdPKZgML6UR4wUR4VZ65RVSG/dR0/VQ5/ZML7n
- 64xi65FcNG/nMr7ZNKsUNLVXNL/o64Zo65RdP4kUQ57dPbEUPqsUMG/rO4ZoNG/W
- MKBfNr7jRKtY9UoBdG/HHpJGEoIUIaJXPr7YQkoU60.U60/IO4IUNaZmQrEUQqJX
- R4ZjPW/ZPbFZQbAUN4JoMKZgQm/VMaxpR0/oO4IUQqxpQaBZ65BpMqUUMLAUMLJo
- O4xm90/oOLFgNGkUMKtY65/pMaldQqVZQWsUKKxp64BVPW/VP5Bj643YN0/V64ld
- PagUR4wUMG/GFJ/DIoZIHp7N637ZMqxmN0/rO4ZXO0/YNKNdPaJn65RcNL7Z65Fc
- NG/nPrJmMqIUOLAUQrFjQaJY9W/4OKtVP4lt65ZjRG/XMKsUMKFY64tjR4Jn643W
- PrJo65FcNG/nPrJmMqIi1G.U60.U63FcNG/iNLVo65BZMrFdPqsUMq3i647Z65Jn
- NKEUR4wUNKtoNL6UNLVXNL7kR5AUNb7jPG/oO4IUQqxpQaBZ9W/IO4IUP43nR0/n
- NKBoOKxi64RdRaJn64tjR4Jn643WPrJo65FcNG/nPrJmMqIUN43oMGsB60.U60.U
- GKMUSKxp65/mOKto642UIqxpQaBZ657ZMqxmN0/dR0/rOKlg643kQ4JVQW/qNL7t
- 65BdPKZgML6UR4wUR4VZ65RVSG/dR0/VQ5/ZML7n64xi65FcNG/nMr7ZNKsUNLVX
- NL/o64Zo65RdP4kUQ57dPbEUPqsUMG/rO4ZoNG/WMKBfNr7jRKtY9UoBdG/GFJ/D
- IoZIHp7N637ZMqxmN5AB60.U60.UJ4VZQaIUML7Z64NdNKlYQm/oPm/ZPbFZQW/o
- O4IUPa3hNG/VPaEUMKFYQaJnQm/jNW/oO4IUQaJkPrBdR4xmSG/jQW/jNW/nPqpZ
- 64ljMq3oOKxi65RcNL7Z65BjRL7XNLAUML7Z65BoPr7ZN0sUKKxp64BVPW/VP5Bj
- 64JiR4Jm64tjR4Jn643WPrJo65FcNG/mNL/jQqZoPr7t9UoU60.U60/7NW/tPrIU
- Q57dPbEUMG/GNL/jQqZoPr7t657ZMqxmN0/dR0/rOKlg643kQ4JVQW/qNL7t65Bd
- PKZgML6UR4wUR4VZ65RVSG/dR0/VQ5/ZML7n64xi65FcNG/nMr7ZNKsUNLVXNL/o
- 64Zo65RdP4kUQ57dPbEUPqsUMG/rO4ZoNG/WMKBfNr7jRKtY9UoBdG/HJI7BGJFI
- FJ6UIaJXPr7YQkoU60.U60/IO4JmNG/VQaIUNaZZP4Fn65Fj64JiR4Jm65FcNG/i
- MKpZ643iN0/VN4FmNLBn64xa643iSKxiNG/VMrFdPaQUMLAUMG/nRK7hOLFoNL6U
- Naxm65FcNG/bNKtZMKljNqZXMKkUN43oMG/dPW/oO4IUFoJ2EoxB62NdP4Ii1G.U
- 60.U62Za65ZjRG/kQaZiR0/V63BpMapdR5FZQW/mNKBjQaEUOLEURqZgP0/VQ5/Z
- ML6URaJmSG/nOKpdP43m65Fj65FcNG/rMLYUOLEUML/kNK3mQm/jPW/oO4IUQqBm
- NKJi64JsMqJkR0/dR0/rOKlg65/mOKto64xi642URqVdR4IUMa3XOqRmPrJiN0sB
- 1OIUIpJ0HIZHIoZDHW/GNKBjQaFn1G.U60.U63FcNG/HJI7BGJBHGIxC637ZMqxm
- N0/dQm/nOKpkP5YUN4ZnQ4lVSKJY643iN0/tPrIUMq3i64BcMKtbNG/VPbYUNaZZ
- P4EU85BZNG/HJI7BGJBHGIxC637ZMqxmN0/aPr6UR4VZ64pZMKtdPaRn64xa65Fc
- NG/aOKJgN5AUOKsUR4VdQm/oSL/Z64xa657ZMqxmN0Yi1G.U60.U62Za65ZjRG/k
- QaZiR0/oO4IUIrJWPKZnQqZjPW/mNKBjQaEUOLEURqZgP0/VQ5/ZML6URaJmSG/n
- OKpdP43m65Fj65FcNG/rMLYUOLEUML/kNK3mQm/jPW/oO4IUQqBmNKJi64JsMqJk
- R0/dR0/rOKlg65/mOKto64xi642URqVdR4IUMa3XOqRmPrJiN0sB1OIUHJJAJ2ZB
- FIF7EG/GNKBjQaFn1G.U60.U63FcNG/ENKFdNr7ZNG/4Pr7hMLEUN4xZQm/iPrEU
- QrJkQ4xmR0/hRKloOKpZN4ZV64xWOaJXR5Ai63ZjRG/nO4xpP4EURLBZ65FcNG/2
- NKNVRKlo62R3F4ZoEoxB62NjQapVR0/oPm/VN4EUPLJgR4ZhNKFdMG/aOKlZ64ld
- Pahn65Fj65ZjRL6UFoJ2EoxB64NdP4Ii1E
- @@GeDF@@FTMIndex
- 0fE......0..8U.F.jwA.Dzy.zE.G....2U.........6..eNY.//../..c.....
- .0..8U0NU0c......0..8U...........2U.../6.......6..2.0......1xAMU
- ........xOI.TE1z..1zzzzzzzw..TzzzzzAn..0zzzzztaN..DzzzzzNaM./Dzz
- zzwnAk.3zzzzzk....PzzwnAzzw./zzznAnAn..6zzzAn7aN..bzzwnANaM.0jzz
- nAknAk.9zzzAn.....nzztaNzzw.1TzzaNbAn..CzzyNaNaN..zzztaNNaM.2Dzz
- aNYnAk.FzzyNaE.../9zzqNazzw.2zzzNaPAn..IzzxaNdaN./LzzqNaNaM.3jzz
- NaMnAk.LzzxaNU.../XzznAnzzw.4TzzAnDAn..OzzwnAtaN./jzznAnNaM.5Dzz
- AnAnAk.RzzwnAk.../vzzk..zzw.5zzz..1An..Uzzw..7aN.05zzk..NaM.6jzz
- ...nAk.Xzzw......0HAnDzzzzw.7QnAzzzAn..anAnzztaN.0TAnDzzNaM.8AnA
- zzwnAk.dnAnzzk...0fAnAnAzzw.8wnAnAnAn..gnAnAn7aN.0rAnAnANaM.9gnA
- nAknAk.jnAnAn....11An7aNzzw.AQnAaNbAn..mnAmNaNaN.1DAn7aNNaM.BAnA
- aNYnAk.pnAmNaE...1PAn4Nazzw.BwnANaPAn..snAlaNdaN.1bAn4NaNaM.CgnA
- NaMnAk.vnAlaNU...1nAn1Anzzw.DQnAAnDAn..ynAknAtaN.1zAn1AnNaM.EAnA
- AnAnAk//nAknAk...29An...zzw.EwnA..1An./2nAk..7aN.2LAn...NaM.FgnA
- ...nAk/5nAk......2WNaTzzzzw.GNaNzzzAn./8aNbzztaN.2iNaTzzNaM.H7aN
- zzwnAk/BaNbzzk...2uNaQnAzzw.HtaNnAnAn./EaNbAn7aN.34NaQnANaM.IdaN
- nAknAk/HaNbAn....3GNaNaNzzw.JNaNaNbAn./KaNaNaNaN.3SNaNaNNaM.K7aN
- aNYnAk/NaNaNaE...3eNaKNazzw.KtaNNaPAn./QaNZaNdaN.3qNaKNaNaM.LdaN
- NaMnAk/TaNZaNU...40NaHAnzzw.MNaNAnDAn./WaNYnAtaN.4CNaHAnNaM.N7aN
- AnAnAk/ZaNYnAk...4ONaE..zzw.NtaN..1An./caNY..7aN.4aNaE..NaM.OdaN
- ...nAk/faNY......4laNjzzzzw.PKNazzzAn./iNaPzztaN.4xaNjzzNaM.Q4Na
- zzwnAk/lNaPzzk...57aNgnAzzw.QqNanAnAn./oNaPAn7aN.5JaNgnANaM.RaNa
- nAknAk/rNaPAn....5VaNdaNzzw.SKNaaNbAn./uNaONaNaN.5haNdaNNaM.T4Na
- aNYnAk/xNaONaE...5taNaNazzw.TqNaNaPAn.0.NaNaNdaN.63aNaNaNaM.UaNa
- NaMnAk01NaNaNU...6FaNXAnzzw.VKNaAnDAn.04NaMnAtaN.6RaNXAnNaM.W4Na
- AnAnAk07NaMnAk...6daNU..zzw.WqNa..1An.0ANaM..7aN.6paNU..NaM.XaNa
- ...nAk0DNaM......7.nAzzzzzw.YHAnzzzAn.0GAnDzztaN.7AnAzzzNaM.Z1An
- zzwnAk0JAnDzzk...7MnAwnAzzw.ZnAnnAnAn.0MAnDAn7aN.7YnAwnANaM.aXAn
- nAknAk0PAnDAn....7knAtaNzzw.bHAnaNbAn.0SAnCNaNaN.7wnAtaNNaM.c1An
- aNYnAk0VAnCNaE...86nAqNazzw.cnAnNaPAn.0YAnBaNdaN.8InAqNaNaM.dXAn
- NaMnAk0bAnBaNU...8UnAnAnzzw.eHAnAnDAn.0eAnAnAtaN.8gnAnAnNaM.f1An
- AnAnAk0hAnAnAk...8snAk..zzw.fnAn..1An.0kAnA..7aN.92nAk..NaM.gXAn
- ...nAk0nAnA......9E..Dzzzzw.hE..zzzAn.0q..1zztaN.9Q..DzzNaM.i...
- zzwnAk0t..1zzk...9c..AnAzzw.ik..nAnAn.0w..1An7aN.9o..AnANaM.jU..
- nAknAk0z..1An....A...7aNzzw.kE..aNbAn.10..0NaNaN.AA..7aNNaM.l...
- aNYnAk13..0NaE...AM..4Nazzw.lk..NaPAn.16../aNdaN.AY..4NaNaM.mU..
- NaMnAk19../aNU...Ak..1Anzzw.nE..AnDAn.1C...nAtaN.Aw..1AnNaM.o...
- AnAnAk1F...nAk...B6.....zzw.ok....1An.1I.....7aN.BI.....NaM.pU..
- ...nAk1Lvis......BXRrE......qPiv......1Oeec......Bi6W.......r5Rr
- ......1RJJI......Bt2F.......rm6W......1U2F2......C2..Cvi....sU..
- rRo...1X..0vik...CE..8ee....tE..W6U...1a../rRk...CQ..3JJ....u...
- F2E...1d...W6U...Cc../2F....uk....1ivU1g.....BrR.Co.....ivg.vU..
- ..0eeU1j.....6W6.D......RrQ.wE..../JJE1m.....2F2.DA.....6W6.x...
- ...F2E1pvivivivi.DPRrRrRrRo.xvivivivik1seeeeeeee.Da6W6W6W6U.ybRr
- RrRrRk1vJJJJJJJJ.Dl2F2F2F2E.zG6W6W6W6U1y2F2F2F2F.Dw.............
- .0..8U......6..e.2..0U......6..e.hTp/BXp.DY6.TLpqzQ/yTY6.TLpqzQ/
- yTYA.TLpujTvFDXr.Tbt1.5pxT9rwjrtxk5tyF2/xTLmxk1xx../zTfuxk5tyFI/
- xTLmxk9x..1vFDk..TruyjQ/yTYE.TLpxDTmzE6.zTfuxk5tyFA/xTLoxk1xx..1
- zE1xyjfr.Tbt2k5pxTPryoHr..Dx.DruyjQ/yTYH.TLpxzTmzEI..Do.zTfuxk5t
- yFM/xTLrxk1xx..0zE..zjo.yjfr.Tbt4.5pxTTr.To.yG1x..Dx..1xzjfuxk5t
- yFE/xTLrxk1xx..2zE..zTfsxk5tyFI/xTLrxk5x.DcUz.1xzE1uyDQ/yTYG.TLp
- xzQ.zTE..DrxyjXr.Tbt2E5pxTTr.Dro..5xyjLr.Tbt1U5pxTTrwjo.yjLr.Tbt
- 1.5pxTLrwzfpxk5tyEU/xTLPxk5tyEU/xTLPxk5tyF./xTLtxk1zyDQ.zyvr.Tbt
- 2.5pxTbr.Dzsxk1zvjQ/yTYT.TLpyTQ/zzTyzzvrzjw4xzTzzzTrzzvr.Dztxk5t
- yG./xTLtxlHzxzzrxzzrzzTrzzTzxzTzxzTzxzzsxk5tyFo/xTLtxkjzxzzrxzzr
- zzTrzzTxzzvr.Dzrxk5tyFs/xTLtxknzxzzrxzzrzzTrzzTzzDQ0zzTzyDQ/yTYV
- .TLpyTQ5zzTzxzTzxzTyzkPrxzzzxzTzzjQ.zzbr.Tbt0.5pxRjr.Tbt/.1pqDY0
- pzY.zk
-